//Example of using the memoryblockSub Main()	dim m as memoryblock		m = NewMemoryBlock(13)	m.SetByteValue(0, 12)	m.SetByteValue(1, 72)	m.SetByteValue(2, 101)	m.SetByteValue(3, 108)	m.SetByteValue(4, 108)	m.SetByteValue(5, 111)	m.SetByteValue(6, 32)	m.SetByteValue(7, 87)	m.SetByteValue(8, 111)	m.SetByteValue(9, 114)	m.SetByteValue(10, 108)	m.SetByteValue(11, 100)	m.SetByteValue(12, 33)	  	MsgBox(m.GetPString(0))end sub